00100	;NODE STRUCTURE.--------------------------------------------------
00200	;
00300	;   ARC/EDGE/VERTEX NODE.	POLYGON/REGION NODE.
00400	;
00500	;	0   CW,,CCW  		0   polygon-ring.
00600	; 	1   ROW,,COL		1   NCNT,,HEAD
00700	;	2   TYPE,,ARC		2   TYPE,,ARC
00800	;	3   ENDO,,EXO		3   ENDO,,EXO
00900	;	4   - ,,PGON		4   CIS,,PGON	co-polygon-ring.
01000	;
01100	;	FILM NODE.	IMAGE NODE.	LEVEL NODE.
01200	;
01300	;	0		0 image-ring.	0 level-ring.
01400	;	1     ,,HEAD	1     ,,HEAD	1     ,,HEAD
01500	;	2 TYPE,,	2 TYPE,,	2 TYPE,,
01600	;	3		3		3
01700	;	4		4		4
01800	;-----------------------------------------------------------------
01900	;LINK NAMES DEFINED.
02000	
02100		DEFINE HEAD (A,Q){CDR A,1(Q)}
02200		DEFINE HEAD.(A,Q){DAP A,1(Q)}
02300		DEFINE TYPE (A,Q){CAR A,2(Q)}
02400		DEFINE TYPE.(A,Q){DIP A,2(Q)}
02500	
02600		RC←←1
02700		DEFINE ROW(A,Q){CAR A,1(Q)} ↔ DEFINE ROW.(A,Q){DIP A,1(Q)}
02800		DEFINE COL(A,Q){CDR A,1(Q)} ↔ DEFINE COL.(A,Q){DAP A,1(Q)}
02900		DEFINE ARC(A,Q){CDR A,2(Q)} ↔ DEFINE ARC.(A,Q){DAP A,2(Q)}
03000		DEFINE CW (A,Q){CAR A,0(Q)} ↔ DEFINE CCW (A,Q){CDR A,0(Q)}
03100		DEFINE CW.(A,Q){DIP A,0(Q)} ↔ DEFINE CCW.(A,Q){DAP A,0(Q)}
03200	
03300		DEFINE ENDO(A,Q){CAR A,3(Q)}↔DEFINE ENDO.(A,Q){DIP A,3(Q)}
03400		DEFINE EXO (A,Q){CDR A,3(Q)}↔DEFINE EXO. (A,Q){DAP A,3(Q)}
03500		DEFINE CIS (A,Q){CAR A,4(Q)}↔DEFINE CIS. (A,Q){DIP A,4(Q)}
03600		DEFINE PGON(A,Q){CDR A,4(Q)}↔DEFINE PGON.(A,Q){DAP A,4(Q)}
03700		DEFINE NCNT(A,Q){NIP A,1(Q)}↔DEFINE NCNT.(A,Q){DIP A,1(Q)}
03800	;-----------------------------------------------------------------
03900	;PROPERTY-TYPE MACROS.
04000		DEFINE MARK (Q,BITS){SLACI(BITS)↔IORM(Q)2}
04100		DEFINE MARKZ(Q,BITS){SLACI(BITS)↔ANDCAM(Q)2}
04200		DEFINE TEST (Q,BITS){LAC(Q)2↔TLNN(BITS)}
04300		DEFINE TESTZ(Q,BITS){LAC(Q)2↔TLNE(BITS)}
04400	
04500	;PROPERTY-TYPE BITS.
04600		↓EBIT←←1B17↔	↓PBIT←←1B16↔	↓LBIT←←1B15
04700		↓IBIT←←1B14↔	↓FBIT←←1B13↔	↓BITW←←1B12
04710		↓BITS←←1B11↔	↓BITE←←1B10↔	↓BITN←←1B9
04800	;-----------------------------------------------------------------